" email-out.hml" string email_file

{ To-Python.hml Python.hml Python-Test.hml To-Email.hml Holon-
notes.hml}
list files

{ Prepare 2 holon-databases.
load rest of email to get modules.
No spaces before <module>!
-- snip --
}

string readme

: add-file ( -- )
       input open-r
       begin input eof not while
               input get
               dup akku append " \n" akku append
       repeat
       input close

: collect (  -- )
       ." ---" !s
       email_file output newname
       output open-w
       readme get akku !
       files length 0 do
               doi files
               ." adding " dup .
               input newname
               add-file
       loop
       akku get output put
       output close
       ." Email in: " email_file .

